home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 05-11.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  561 b   |  33 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. const
  5.   COLORS : integer = 256;
  6.  
  7. var
  8.   old_mode         : integer;
  9.   red, green, blue : integer;
  10.  
  11. begin
  12.   old_mode := fg_getmode;
  13.   fg_setmode(19);
  14.  
  15.   fg_setcolor(103);
  16.   fg_text('Hello',5);
  17.   fg_waitfor(18);
  18.  
  19.   fg_getrgb(103,red,green,blue);
  20.  
  21.   while (red+green+blue > 0) do
  22.   begin
  23.     if (red > 0)   then dec(red);
  24.     if (green > 0) then dec(green);
  25.     if (blue > 0)  then dec(blue);
  26.     fg_setrgb(103,red,green,blue);
  27.     fg_waitfor(1);
  28.   end;
  29.  
  30.   fg_setmode(old_mode);
  31.   fg_reset;
  32. end.
  33.